﻿Public Class frmMain

    Private Sub btnPhieuNhapSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPhieuNhapSach.Click
        Dim frm As frmPhieuNhapSach = New frmPhieuNhapSach()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub btnHoaDonBanSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHoaDonBanSach.Click
        Dim frm As frmHoaDonBanSach = New frmHoaDonBanSach()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub btnPhieuThuTien_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPhieuThuTien.Click
        Dim frm As frmPhieuThuTien = New frmPhieuThuTien()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub btnBaoCaoSachTon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaoCaoSachTon.Click
        Dim frm As frmBaoCaoTon = New frmBaoCaoTon()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub btnBaoCaoCongNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaoCaoCongNo.Click
        Dim frm As New frmBaoCaoCongNo()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub btnTraCuuSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTraCuuSach.Click
        Dim frm As New frmTraCuuSach()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub btnSuaDoiQuiDinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuaDoiQuiDinh.Click
        Dim frm As New frmThamSo()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub PhiếuNhậpSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhiếuNhậpSáchToolStripMenuItem.Click
        Dim frm As New frmPhieuNhapSach()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub HóaĐơnBánSácToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HóaĐơnBánSácToolStripMenuItem.Click
        Dim frm As New frmHoaDonBanSach()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub TraCứuSáchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCứuSáchToolStripMenuItem.Click
        Dim frm As New frmTraCuuSach()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub BáoCáoTồnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BáoCáoTồnToolStripMenuItem.Click
        Dim frm As New frmBaoCaoTon()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub BáoCáoCôngNợToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BáoCáoCôngNợToolStripMenuItem.Click
        Dim frm As New frmBaoCaoCongNo()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub ThayĐổiQuiĐịnhToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThayĐổiQuiĐịnhToolStripMenuItem.Click
        Dim frm As New frmThamSo()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        Dim frm As New frmDangKyKhachHang()
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub btnKhachHang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKhachHang.Click
        Dim frm As New frmThongKeKhachHang()
        frm.MdiParent = Me
        frm.Show()
    End Sub

  
    Private Sub btnSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSach.Click
        Dim frm As New frmThongKeSach()
        frm.MdiParent = Me
        frm.Show()
    End Sub
End Class
